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DISPLAY CRASH RELATED INFORMATION 16-SEP-1984 01:25:55 VAX/VMS Macro V04- Pa C 
Breer bbe BS:83i82 FERAMES Macro, vOs—0 ed) Syn 
1 TITLE CRASH PISPLAL CRASH RELATED INFORMATION ALL 
$BTTL GOPYRIGHT NO ARC 
. IDEN pus 
5 | enunceuusnnsnapeseasdongesasnooseeseneensneennonnenconsecosenesenecoococees a 
:* * 
7 3s COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . BUC 
:* DIGITAL FQuiPHent ¢ CORPORATION, MAYNARD, MASSACHUSETTS. * BUC 
, ” ALL RIGHTS RESERVED. : ae 
11 :* THIS SOFTUARE Is FURN SHED UNDER A LICENSE AND MAY BE USED AND COPIED * CUF 
13 i* ONLY IN RDANCE W THE TERMS OF SUCH LICENSE AND WITH THE * Cur 
13. ;* INCLU ton’ 6 aie NAO CoPYnl cut NOTICE. THIS soft ARE OR ANY HER DIS 
14 ;* COPIES, TWEREOF Aa T BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * DMF 
15 ;* OTHER PERSON. rit LE TO ane OWNERSHIP OF THE SOFTWARE IS HEREBY * DMF 
090 1 - PRANSFERRED™ : 4 
00 18 :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * Dur 
000 19 :* AND SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * EME 
4 O ss CORPORATION. : Ha 
;* 
000 ¢ z* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * E 
48 z :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . oa 
: E 
44 2 jteeeeeeneeeeeeeeeeereneeereeeeeenenseeeeeeseceesestecenetesenssseeseseesenss 4 
0000 7: 
E 
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-SBTTL PROGRAM DESCRIPTION 
FACILITY 
SYSTEM DUMP ANALYZER 
ABSTRACT 


THIS MODULE CONTA 
SAVED AT CRASH TI 


LAY CRASH 
RAM DESCRI 


= 
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ies ROUTINES TO FORMAT INFORMATION 
ENVIRONMENT 
NATIVE MODE, USER MODE 


MODIFIED BY 


v03-003 EMB0106 Ellen M. Batbouta 7-Jun-1984 
n rpese the max size of a file name from 64 bytes to 
ytes. 


V03-002 ROW0257 Ralph 0. Weber 17-NOV-1983 
Cause SHOW CRASH to display the SCS node name, if one exists. 


v03-061 TCM0001 Trudy C. Matthews 27-Jul-1983 
Added comment saying why the CPUDISP macro can't be used for 
some CPU-dependent code in this module. 


SSSSSSssssssssssssssss 
OOCCCOCCCOCOOOCOOOOCOoO 


SoOoooooooooooooooooo 
oooooo 


AMO ODNOA MEW (OO ONOAUE WO VOONOUFS W000 0D 


PDP PPP Be BS Be BB BB BE AIA AIA 


Soooooooooooo 


oco 


COOoooooocoooo 


ooooo 


AUTHOR 
TIM HALVORSEN, JULY 1978 


ee 
~ 
w& 
| a | 
Be) ' 
a 
| 
o- 
Oss 
w= 
ot 
>. 
= 
ow ww 
<« > z 
va [4 
eu _— - oo 
ze 2 - « 
(=) Que ss 
wa z s3=> 
zm voor vo 
>e. OHO Z 
~< — 4 Ow--O 
xa — = Oc. 
=m Zz2az vw 
>w -—O--Oagnw 
wGuGusw> 
woew-Qcor ~~ 
wa eee «wu 
Wo wwe © 
oo wa VVeETtuMy 
wr +=zoO — @ 
am et a 
oo oe “ua WwW = 
ey Zewwwerw 
oo AMOLOVLYU0F- 
3322 ow 
ww ecacaciia> 
coc Qvlwaea-aM 
an 
ror ee te *e re te te te te 
‘se 
aa 
uw 
nw 
‘8 w” 
on z 
— o A 
-_ Ww a 
- 2 = 
<«< oO . 
=< - _ 
oOo <= - w 
+ 2 . 
ve = a 
— w v 
ao w v 
a 
A te te he 
ee ee ee ere eres 
- Oo Soooooocow 
—- @©@ @20ID0o0o jG 
oOo &£= £EQvrevo 
” >; Owwaea-Aaw 
=| DPD AAARAARAAAA 


od 
— 
a 
= 
a 
oO 
—— 
x 
— 
a 
ivy) 
po 
4 
4 
aw 
< 
= 
” 
<= 
< 
> 
< 
ws 
a 
” 


2 
ure 
— 
< 
Ze& GOOOOOCCOCOOoCoOoO 
< 
=) 
> 
md os 
ao 


Mm 6 
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~SBTTL STORAGE DEFINITIONS 


STORAGE DEFINITIONS 


~BLKL 2 ; ADDRESS OF ERROR LOG ENTRY 


«PSECT CRASH,EXE,NOWRT,LONG 


R 
T 
§ ~-PSECT SDADATA,NOEXE ,WRT 
4 
5 
0 -DEFAULT DISPLACEMENT ,LONG 


ESTART BUGS: 
ONG ; vord eknok rot STACK 


; L 
; CHM ON INTERRUPT STACK 
; ==- END OF TABLE 


-LONG BUGS$_CHMONIS 
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CRASH DISPLAY CRASH RELATED INFORMATION 16-SEP-1984 AX/VM he 
V04-000 READCONLY DATA BEF IWaTLOks ~SEP=}S8 83:43:32 PAN Mes Macre, vOKe0 oath 
~SBTTL READ-ONLY DATA DEFINITIONS 
; READ-ONLY DATA DEFINITIONS 
: TABLE OF BUGCHECK CODES WHICH CAUSE THE CONSOLE TO 
: WIPE OUT MOST OF THE REGISTERS. THIS TABLE IS TAKEN 
; DIRECTLY FROM THE CODE IN POWERFAIL. 
a 
004 
0 8 
010 
014 
018 
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CRASH DISPLAY CRASH RELATED INFORMATION 16-SEP-1984 5 VAX/VMS Macro Vv04-0 P 
v04- DISPLAY.CRASH <= DISPLAY CRASH GNFORMATI “SaSEP=1ope DSiSoi04 LenaMee teers VOR 500 age 8, 
11? -SBTTL DISPLAY_CRASH == DISPLAY CRASH INFORMATION 
115 : 
118 ; DISPLAY_CRASH 
6 113 : THIS ROUTINE DISPLAYS ALL RELATED ~- ORMATION geeiee ine 
8 119 ; THE SAVED STATE OF THE PROCESSOR AT THE TIME OF THE 
9 } Y ; SYSTEM BUGCHECK EXCEPTION. 
0 : : INPUTS: 
i 4 NONE 
0 126 ; OUTPUTS: 
020 1 5 : 
8 128 ; NONE 
0 129 ; 
3 ! ? ; ==> 
4 13 -ENABL LSB 
020C¢ 8 134 ENTRY df} Soaps CRASH,- 
009 13 “M<R2,R3,R 
00 13 SUBHD <System crash information> ; SET NEW HEADING 
oer 138 SKIP PAGE 
59  00000000'EF DO 0036 140 MOVL ERLPTR,RI : ADDRESS OF ERROR LOG ENTRY 
003D 141 ALLOC 24,R ALLOCATE SPACE FOR DATE/TIME 
ee 0047 148 SASCTIM_S f IMADR=EMBSQ_CR_ TIME (RO), TIMBUF = (R2) 
0059 9144 PRINT 1,<Time of system crash: !AS> 
doe 146 SKIP 2 
Q06F 123 GETMEM @SYS$GQ_VERSION,-(SP) ; = SYSTEM VERSION 
5E DD OO07F 148 PUSHL SP : ADDRESS OF STRING 
04 DD bogs 149 PUSHL #4 LENGTH OF STRING 
00 150 PRINT 3,<Version of system: VAK/VMS VERSION !AD> 
53 00000000'GF DO 009 151 MOVL G oi 3888 LOCALSB, R3 ; Get address of local system block 
, SE eee 09 136 SUBL #SB$S_NODBE ENAME® épe 3; Make scratch space for node name 
| a 15 MOVL SP 3; Save address of scratch 
154 GETMEM Seg _NODENAME (R3) : Get node name 
155 (R2)> #SB$S " NODENAME 
$¢ 3 138 TSTB (R }° ; Is the node name null? 
1 1 : 475 } ; Branch if null node name 
52 oD 138 PUSHL R2 ; Push node name copy address 
160 PRINT 1,<VAXcluster node name: !AC> 
103 15$: 
50 OOF4 C9 FD 8F 7 188 ASHL #-3,EMBSL_CR_CODE(R9) ,RO ; MESSAGE NUMBER 
1 164 BEQL ; SKIP If NO MESSAGE 
51 00000000‘ EF 9E 192 208 MOVAB L“BUGST_MESSAGES,R1 ; ADDRESS OF MESSAGES 
52 1 9A 189 Y mOVZBL (R1)+,R2 : LENGTH OF MESSAGE 
1 3 C 198 ADDL Re oR ; SKIP TO NEXT MESSAGE 
F7 F 1 SOBGTR RO,20$ ; LOOP UNTIL FOUND 
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FORMATION 16-SEP 4 5:55 coda: Macro rr | Page 7 
CRASH INFORMATI eet fi 83: $3; :04 EDA. SRCICRASH.MAR; 1 med 
PUSHL R1 ; ADDRESS OF BUGCHECK MESSAGE 
PRINT  aeseen for BUGCHECK exception: !AC> 
GETMEM @SCHS$GL_CURPCB : GET CURRENT PROCESS'S PCB 
LBC. =—_ RO, 26$ : BRANCH IF DATA NOT AVAILABLE 
CLRQ  =(§P) : INITIALIZE A BUFFER TO HOL 
CLRQ 0 = (SP) ; THE CURRENT PROCESS'S NAME 
OVL  $P,R2 REMEMBER ADDRESS OF BUFFER 
GETMEM Pcost LNAME(R1),(R2),#16° "¢,GET CURRENT PROCESS'S NAME 
PUSHL :° PROCESS NAME 
PRINT <Process currently executing: 'AC> 
ADDL 16,SP ; CLEAN BUFFER OFF STACK 
CALLS #0,CURPROC : SET TO CURRENT PROCESS 
OVL § MMGSIMGHDRBUF ,R1 : ADDRESS OF HEADER BUFFER 
TRYMEM 4(R1),R2 : GET ADDRESS OF IFD 
LBC. —_-«rRO, 308 : IF NOT AVAILABLE 
TRYMEM IFOSW_FILNAMOFF(R1) : GET OFFSET TO FILE NAME 
LBC RO, 308 ; BRANCH IF NOT AVAILABLE 
CVTWL O17, R1 : CONVERT TO LONGWORD 
SuBL #255 SP : ALLOCATE BUFFER FOR FILESPEC 
TRYMEM eaten (RO) ,#255 : GET ASCIC IMAGE FILE NAME 
LBC. —_«rRO, 3 : BRANCH IF NOT AVAILABLE 
PUSHL sP 
PRINT 1+#<255/4>,<Current image file: !AC> 
EXTZV #PSLSV_IPL,#PSLS$S_IPL,EMBSL_CR_PSL(R9) ,-(SP) 
PRINT 1,<Current IPL: 'UL (decimal)> 
SKIP 5 
ENSURE 
PRINT 0,<General registers:> 
SKIP 1 
If THE BUGCHECK CODE WAS ANY oF THE ONES THAT COME 
BACK FROM THE CONSOLE ROM VIA POWERFAIL RESTART, THEN 
DO NOT PRINT THE REGISTERS AS THEY HAVE BEEN WIPED OUT. 
BICL3 #7,EMBSL_CR CODE(R9), RO ; BUGCHECK CODE (CLEAR FLAG) 
MOVAL RESTART_BUGS,R : TABLE OF RESTART BUGCHECKS 
CMPL RO (R1)+ : CHECK IF MATCHES 
Beal 46-4 5$ : BRANCH IF $0 
TSTL = (R1) : END OF TABL E? 
BNEQ 408 : CONTINUE UNTIL «DONE 
BRB 50$ + PRINT REGISTERS 
PUSHL EMBSL_CR_R11(R9) > PSL 
PUSHL EMBSL~CR7R10(R9) : PC 
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CRASH DISPLAY CRASH RELATED INFORMATION 16-SEP-1984 01:25:55 VAX/VMS Macro v04-0 Page 
v04-000 DISPLAY_CRASH == DISPLAY CRASH INFORMATI etsy 83:43:32 SDA.SRCICRASH.MAR; . &) 
10 7 PRINT <!PC = IXL) = PSL = !XL> :f 
1D 8 SKIP . ; # 
$3 3 iy -<!_ Remaining registers not available -- wiped out by console> : : 
§ 1 PRINT ,<Processor registers:> 3 8 
4 ¢ SKIP ; # 
0084 C9 sob PUSHL EMBSL_CR_SCBB(R9) : # 
4 AQ OOD 4 PUSHL EMBS$L-CR-SLR(R9) ; # 
78 AD =D 5 PUSHL EMBS$L-CR-SBR(R9) ny 
f § PRINT »<!_SBR = 'XL> 3 e 
§ PRINT 1,<! "SLR = !XL> any 
4 § $ PRINT 1,<!"SCBB = !XL> : # 
O21F 31 a BRW 66$ ; PRINT KSP-ISP REGISTERS : : 
0 a9 DD 8 § 41 PUSHL EMBSL_CR_R3(R9) : # 
C Ad =D i PUSHL EMBS$L-CR_R2(R9) :# 
8 AD DD C 4 PUSHL EMBS$L_CR_R1(R9) ; 
4 a9 DD a 44 PUSHL EMBSL ER_ROCRI) : 
92 45 PRINT 4,<! RO “= +8 R1 = !XL R2 = !XL R3 = !XL> : 
40 Ad sD oF 4g PUSHL €EMBSC_CR_R7(R9) 3 
3c AD «=D COO Ae 4 PUSHL BMBSL_CR_RG(RY) ; 
Hy Ao =s«OOD 8 A 48 PUSHL EMBSL_CR~R5(R9) ; 
4 a9 DD A8 49 PUSHL EMBSL-CR_R4(R9) ; 
8 AB 50 PRINT 4,<!_R4 “= 'XL RS = !XL RO = !XL RZ = !XLD $ 
50 Ao sé B 51 PUSHL EMBS$C_CR_R11(R9) ; 
4C AY =DD «(0288 2¢ PUSHL EMBSL_CR_R10(R9) 3 
48 A9 DD O2BE 5 PUSHL EMBS$L_CR_RO(RI) : 
44 a9 DD 8 C1 54 PUSHL EMBS$L-CR_R8B(R9) 3 
C4 55 PRINT 4,<! RB “= 'XL RO = !XL RIO = 'XL~ R11 = !XL> : 
60 AY «OOD 8 D1 56 PUSHL EMBSC_CR_PC(R9) : 
5C AJ =soéOD D4 57 PUSHL EMBS$L_CR_SP(R9) ; 
58 AY «=6~DD «O27 58 PUSHL EMBSL_CR_FP(RY) 3 
54 AD sé 8 DA 59 PUSHL EMBS$L-CR_AP(R9) 3 
DD 60 PRINT 4,<! AP “= 'XL FP = !XL SP = '!XL PC = !XL> : 
64 AD =sOOD OgeEA 61 PUSHL EMBSC_CR_PSL(R9) ; 
ED 6¢ PRINT 1,<!_PSL™= !XL> 3 
O2FA 6 SKIP 4 3 
03 64 ENSURE 10 ; 
1B 65 INT 0Q,<Processor registers:> : 
§ $6 SKIP 1 : 
1 68 ; We can't use the CPUDISP macro here because we have to get the EXESGB_CPUTYPE : 
! 4 3; value from the appropriate dump file. : 
1 0 GETMEM OF XE 868. CPUTYPE 3 GET TYPE OF CPU 3 
09 50 +€9 E BLBC RO, 7808 : IF NOT FOUND, ASSUME 11/780 3 
Al oa? CASE  R1,TYPE=B,- : DISPATCH ON CPU TYPE 3 
41 27% LIAIT=#PRS_S1D_TYP780,~ 3 
41 75 <780$,- : 11/788 ; 
41 7 750$> 3 11/7 3 
oA 7 ; ALL OTHERS USE 11/780 : 
sa 8 : 11/780 INTERNAL REGISTERS : 
09¢ C9 «DD 034A 780$:  PUSHL EMBSL_CR_ACCS(R9) ; 
080 C9 oD $s PUSHL EMBSL-CR-P BB(R9) 3 
68 AY =D 5 PUSHL EMBS$L_CR-POBR(R9) 3 
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OR P=1 

C P=1 
PRINT 3,<! POBR = XL 
PUSHL EMBSC_CR_SBIFS(R 
PUSHL EMB L>CR-SCBB(R9) 
PUSHL pres gr POLR(R9) 
PRINT <! POLR = Xt 
PUSHL EMBSC_CR_SBISC(R 
PUSHL EMBSL-CR-ASTLVL(R 
PUSHL EMBSL cR PIBR(R9) 
PRINT .<! PiBR = Mt 
PUSHL EMBSC_CR_SBIMT(R 
PUSHL EMBSL-CR_SISR(R9) 
PUSH MBSL CRP LR(R9) 
PRIN .<! PILR = Mt 
PUSHL EMBSC_CR_SBIER(R 
PUSHL SL=CRIICCS(RI) 
PUSHL EMBSL~CR-SBR(R9) 
PRINT ,<! SBR 2 Mt 
PUSHL EMBSC_CR_SBITA(R 
PUSHL EMBSL-CRTICR(R9) 
PUSHL presi CRISLR(RI) 
PRINT 3,<! SLR™ = !XL 
PUSHL EMBSC_CR_SBIS(R9) 
PUSHL EMBSL-CR-TODR(R9) 
PRINT 2,<!_ 

SKIP 
BRW 608 


11/750 INTERNAL REGISTERS 
PUSHL EMBSL_CR_ACCS(R9) 
" R-PC 


PUSHL EMBSL_CR-PCBB(R9) 
PUSHL EMBSL-CR-POBR(R9) 
PRINT -<! POBR = !XL 
SHL EMBSC_CR_TBDR(RY) 
PUSHL EMBSL-CR-SCBB(R9) 
PUSHL EMBSL~CR-POLR(RY) 
PRINT -<! BOLR = !XL 
PUSHL EMBSC_CR_CADR(R9) 
PUSHL EMBSL-CRTASTLVL(R 
PUSHL EMBS$L~CR-PIBR(R9) 
PRINT .<! PIBR = iM 
PUSHL EMBSC_CR_MCESR(R 
PUSHL EMBSL-CRuSISR(R9) 
PUSHL EMBSL~CR-PILR(R9) 
PRINT <! PILR = IXL 
PUSHL EMBSC_CR_CAER(RI) 
PUSHL EMBSL-CRTICCS(R9) 
PUSHL EMBSL-CR7SBR(R9) 
PRINT <! SBR” = !XL 
PUSHL EMBSC_CR_CMIERR(R 
PUSHL EMBSL-CRTICR(RY) 
PUSHL EMBSL-CRTSLR(R9) 
PRINT 3,<! SLRT = !XL 
PUSH FRBSC_CR_TODR(RI) 
PRINT of3_ 
SKIP 
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ACCS = !XL> 
SBIFS 'XL> 
SBISC 'XL> 
SBIMT 'XL> 
SBIER 'XL> 
SBITA 'XL> 

z 


'XL 


ACCS 


TBOR 


CADR 


MCESR 


CAER 


CMIERR 
= !XL> 


'XL> 


'XL> 


'XL> 


!XL> 


'XL> 


'XL> 
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V04=000 DISPLAY_CRASH == DISPLAY CRASH INFORMATI 5=SEP=1984 USDALSRCICRASH MARS 1 (5) 

20 A9 =D OKA 4] PUSHL FMBSL CR CR_ISP(R9) ; 
4A tg PRINT <! = !XL> . 

10 AQ DD 048 4 PUSHL EAs eR _USP(R9) : 
18 A9 =D «(048 44 PUSHL CTERT SSP(R9) : 
14,49 DD 0488 345 PUSHL EMESL TCR” ESP(R9) : 
10. A9 DD O4BE 346 PUSHL EMBSL~CR-KSP(R9) : 
4C 4 PRINT 1,<!_RSP™ = !XL> : 

Ace 348 PRINT 1,<i"ESP = = ixL> : 

4D 4 PRINT 1,<!"SSP = = iXL> : 

4E 20 PRINT 1,<!"USP = = IXL> : 

04 O4F 1 RET : 


CRASH DISPLAY CRASH RELATED INFORMATION’ 16-SEP-1984 01:25:55 VAX/VMS Macro V04-0 Page 11 
V04-000 PRINT HEADER =< PRINT THE UMP FILE HEAD 'Sesep-ione OS:S2.04 enavee Hacc VOeeC - ih 
af : .SBTTL PRINT_HEADER == PRINT THE DUMP FILE HEADER BLOCKS ; 
4F 5: : 
re § ; PRINT_HEADER : 
af 28 : DUMP THE CONTENTS OF THE DUMP FILE HEADER BLOCKS : 
4F6 60 : INPUTS: : 
“FG 36 ; DUMP_HEADER = DUMP FILE HEADER (3 BLOCKS) : 
4F6 e ; OUTPUTS: ‘ 
4F6 66 : NONE ; 
O4F6 67 ; : 
ae i : 
aire 29 -ENABL LSB : 
4F6 te PRINT_HEADER: : ; 
0004 sure t3 .WORD  “M<R2> ; 
ore o “ry <Dump file header> : 
52 00000000° cr DE $0¢ 6 MOVAL DUNE HEADER, R2 : STARTING ADDRESS ; 
00000600 8F 00 213 4 128 MOVL #3*5T2,R3 ; LENGTH TO DUMP : 
52. DD OS51A .c-> oe? © ; DUMP ADDRESS ; 
52 p> OOS1C 1 PUSHL R : ADDRESS OF ASCII STRING : 
: DD 051 ¢ PUSHL #32 : LENGTH OF STRING ; 
50 D0 3 2 io MOVL RO : REPEAT COUNT ; 
82 0p 05 5 sC*PUSHL (RD 3 
FB F505 : SOBGTR RO, 208 ; PUSH NEXT 8 , LONGWORDS ; 
5 é PRINT 17-<'XL XL IML IML IML IML EXE EXE 'XL> : 
53 20 ¢2 05 8 SUBL2 #32,R3 ; DECREMENT LENGTH : 
EO 14 0538 389 BGTR 10S : CONTINUE UNTIL DONE : 
04 ; A 30 RET 3 
5 92 .DSABL LSB ; 
: 
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RELATED INFORMATION SEP=1984 01:25:55 VAX/VMS Macro V0s- : 
ae AET DUMP HEADER INFO ScgEPajone OoiSoc04 Lena eacTeRASH aaa’ age 16 


34 .SBTTL GET_DUMP_INFO == GET DUMP HEADER INFO : 
9% : : 
$3 ; GET_DUMP_INFO é 
35 FIND THE ERROR LOG ENTRY AND SAVE IT. IF THE ; 
4 : ; ENTRY CANNOT BE FOUND, GENERATE A DUMMY ENTRY. ; 
B 4 j > INPUTS: 
8 4 4 ; NONE ; 
B 406 : OUTPUTS: 
; B 408 ERLPTR = ADDRESS OF ERROR LOG ENTRY 3 
410 j--- ; 
> i) .ENABL LSB ; 
5 £18 GET_DUMP_INFO:: ; 
0304 05 414 “WORD  “M<R2,R8,R9> ; 
Bot : 
05 p 417 ; SET FLAGS DESCRIBING THE VERSION OF THE SYSTEM : 
00000000'EF D4 $2 3 ti . CLRL_ - VERSION_FLAGS : PRESET FLAGS LONGWORD ; 
543 420 GETREN @SYS$GQ"VERSION : READ THE SYSTEM VERSION ; 
2631 8F 4«051—B1S0550—s 41 CMPW) ORT, #*A'T,' : 1.0 EXECUTIVE? (1.01,1.5 ALSO) ; 
07 +13 «0555 «4 g BEQL = 2 : BRANCH IF NO ; 
00000000'EF 01 00 a3 4 po MOVL #1,VERSION_FLAGS > INDICATE VERSION 2 : 
03 00000000'EF &9 PH +, Bae: BLBC CURRENT. SYSTEM, 3S ; BRANCH IF EXAMINING DUMP FILE ; 
009c 31 36 4 6 al BRW : SETUP FOR CURRENT SYSTEM ; 
00000000'EF  O000006C'EF  9€ 368 428 MOVAB DUMP_HEADER+DMPSL_CRASHERL ERLPTR i jaSET PTR TO ERROR LOG ENTRY F 
62 00000006" F 8 375 4 3 cMPW DUMP~HEADER+DMPSW DUMPVER, 4 se RR MSG HOR AT NEG OFFSETS? : 
00000000°EF 04 CO Hf 4 1 *. ADDL § #EMBSK_LENGTH,ERLPTR  : POINT PaeT. THE ERRMSG HDR (VMS V3) 3 
59  00000000°EF 0 3 s 4 5 . MOVL ERLPTR,RO : ADDRESS OF ERROR LOG ENTRY 3 
SBA 435: THE FOLLOWING CODE ADJUSTS THE SAVED SP SINCE IT WAS : 
5 A 4 7 : NOT SAVED UNTIL AFTER THE PC,PSL WAS ADDED TO THE STACK. ; 
5c a9 «08s CO A 4 8 ds: ADDL2 #2*4,EMBSL_CR_SP(R9) | ; ADJUST DUE TO BUGCHECK 3 
58E 440 : STORE THE CURRENT SP (R14) INTO THE CORRESPONDING PROCESSOR ; 
SBE 441: REGISTER CORRESPOND! NG TO THE ACCESS MODE ONLY IF KERNEL OR : 
3 £ 443 F INTERR TACK. IF OTHER Agia THEN USE THE PROCESSOR ; 
. ees 7 REGISTER "BECAUSE BUGCHECK HAS TO MOVE THE INFO TO THE KERNEL F 
; 444 ; MODE STACK AND IN THE PROCESS, WIPES THE SP REGISTER. 
51 6409 O02 1 Fr E 44 : EXTZV  #PSLSV_CURMOD, #PSLSS_CURMOD ERBSL CR_PSL(R9) RI 
0 44 BEQL BRANCH TF RERNE L/ INTERRUPT 
5C AD 10 A9G p 36 448 ROVL MBSL_CR_KSP(RO)CR1I, emai’ _CR_ SPcRO) rik SP VAL 
08 64 a9 «#=1A «£0 059E 450 10S: B8BS #PSLSV_IS,EMBSL_CR_PSL(R9),5$ ; BRANCH IF ISP 
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; a3 4 OVL EMBSL_CR_SP(R9),EMBSL_CR_KSP(RO)CR1] : R146 TO PRIMODE+1) | : 

20 a9 SC AD AB 438 58: ROVL —EMBSL_CR_SPCR9) ,EMBSL_CR_ISP(RO) ; R14 TO PRCO | 

8 455 ; | ; 

580 4 : ; SIMULATE A SVPCTX INSTRUCTION IN ORDER TO MAKE THE HARDWARE ; 

BO 457: PCB_IN THE PROCESS HEADER CORRESPOND TO THE SAVED REGISTERS : 

: 4 : : AT THE TIME OF THE CRASH. ; 

BO 460° GETMEM @SCHSGL_CURPCB : ADDRESS OF CURRENT PCB : 

4350 €9 0580 rhe BLBC Bs 4 + BRANCH IF CANNOT READ ; 

CO 46¢ GETMEM si PHD(R1),R2 + GET ADDRESS OF CURRENT PHD ; 

3350 €9 05¢D 4 BLBC + BRANCH IF CANNOT READ : 

5 b3 5D0 464 TSTL : PHD VALID? ; 

2F 613 «(05D2 0465 EQL : SKIP IF NOT ; 

5D 466 PUTMEM PHDSL_KSP(R2),EMBSL_CR_KSP(R9) #494 ; SET KSP - ys ; 

5E3 46 PUTMEM PHDSL-RO(RZ) . EMBSL_TR_ROCRS) 1 404 :°SET RO - R1 : 

SF 468 PUTMEM PHDSL-PC(R2) .EMBSL_CR-PC(R9).#2%4 ; SET PC,PSL : 

04 060 46 21$: RET ; 

Soe oat 

Beas Are ; EXAMINE CURRENT RUNNING SYSTEM == CREATE A DUMMY : 

be r rt 4 : ERROR LOG ENTRY AND DUMP HEADER. : 

58 00000000'EF 9 an rat: $0$:  MOVAB DUMP_HEADER,RB : ADDR “SS OF Dump HEADER ; 
00 04 AB «6~00~—=C*‘*é pore 478 BBSS #omPSy _OLDDUMP DMPSL ~FLAGS (RB) $; G DUMP ANALYZED ; 
Q000010C 8F DD 0610 477 328:  PUSHL HEMBSC CR_LENGTH oF’ crash LOG ENT F 
Q0000000'EF 01 FB 0616 478 CALLS #1 MALLOCATE : et noting ORA : 
00000000" 4 2] +4 bese rt 4 cor gers i SAVE ADD ones OF ERL BUFFER : 
0637 rt GETMEM @EXE$GO ~SYSTINE E sEMBSO_ cr’ ; REFERENCE bar ser DATE/TIME : 

639 48¢ GETMEM @MMGSGL~ 7 LENGTH OF ri T IN LONGWORDS : 

649 4 GETMEM aMMG$G i : PHYSICAL ADDRESS OF opt : 

51 6142 DE 656 484 (R1)CR2T,R1 ; COMPUTE PHYSICAL MEMORY SIZE : 
Q00000000'EF 51 F7 BF 065A 485 ASHL #-9,R1,PHYS_PAGE : SAVE MEMORY SIZE IN PAGES ; 
663 4 : GE THEM Sschiscl. CURPCB,R : GET ADDRESS OF CURRENT PCB ; 

1F 50 £9 06 4 BLBC. aR R RROR ; 

676 488 GETMEM PCBS _PID(R2) ,EMBSL_CR ein gan Oe : GET PID oF CURRENT PROCESS ; 

685 489 GETMEM PCBST-LNAME(R2) ,EMBST_CR_LNAME(R9).#16 ; AND ALSO NAME : 

695 490 35$: STATUS CuCeESS ; 

04 69¢ 491 RET ; 

69D 193 .DSABL LSB F 

B238 494 3 

69D 495 END ; 
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Symbol table 
ALLOCATE 
pet 
BUGST_MESSAGES 
BUGS_CHMONIS 
BUGS —DBLERR 
BUGS"ERRHALT | 
BUG$_HALT 
BUGS_ILLVEC 
BUGS_IVLISTK 
BUGS NOUSRWCS 
CURPROC 
CURRENT_SYSTEM 
DISPLAY” CRASH 
DMPSL_CRASHERL 
“FLAGS 
DMPSV_OLDDUMP 
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PHYS PAGES 
PR$_SID_TYP780 
PRINT 
PRINT_HEADER 
PSLSS_CURMOD 
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! Psect synopsis ! 


eer we eet emma mare} 


The yorking set Limit was 1650 popes. 
bytes (104 pages) of virtual memory were used to buffer the intermediate code. 
There were 40 pages of symbol table space ot jece ed to hold 573 non-local and 70 Local symbols. 
495 source Lines were read in Pass 1, producing 32 object records in Pass 2. 
31 pages of virtual memory were used to define 30 macros. 


eee eeoeoeoeoeoeoeoeeesoeocoessoooses +} 


Macro Library name 


$255$DUA28 $DA.0BJ SDALIB. MLB: 1 10 
39$DUA g:t3 0B 341 10 
SSSDUA SySi18 STARLET. ie: :2 7 

+82588 call libraries) 27 


745 GETS were required to define 27 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:CRASH/OBJ=O0BJ$:CRASH MSRC$: CRASH/UPDATE=(ENH$: CRASH) ¢EXECML$/LIB+LIB$:SDALIB/LIB 


PSECT name Allocation PSECT No. Attributes 
» 6B « ( ) 00 ( 0.) NOPIC USR CON ABS LCL a re NOEXE NORD 
SABSS ( -) 01 -) NOPIC USR CON ABS LCL NOSHR EXE RD 
SDADATA ( <a ¢ ( ¢°} NOPIC USR CON REL LCL NOSHR NOEXE 
CRASH 000069D 169 < ( 3.) NOPIC USR CON REL LCL NOSHR’ EXE 
LITERALS OOO06CC ( 1740.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE 
ten wees Secor eaten tr sen aenm son > 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 35 0: 0:00.0 0: 0:0 93 
zounene processing 136 0:00: 9-8 0:00: 96 
Synbol table sort it | 8: 8: 0:8 0; 6: 174 
Pass 2 111 0: 6; 18) 0: + 531 
Symbol table output 15 3: 0: 8-8 8:99:89. 
Psect synopsis output : 3: 0. 0:00:00.0 
Cross-reference output 0:00: 3-2 888 82-9 
Assembler run totals 60 0:00:08.56 00:00:35.11 
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